home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / mcf4amrc.lha / MCF4AmIRC / Rexx / NFK.AMIRX < prev    next >
Text File  |  1996-09-17  |  653b  |  10 lines
  1. /* NFK.AMIRX
  2. // $VER: NFK.AMIRX 4.4 (24.08.96) (MCF Extra command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. //
  5. \\ ** What to do with this file?   Put this script in REXX:
  6. //    then type  /rx NFK #
  7. \\  where # is the number of nick flooders you want kicked.
  8. //  This script is also used by MKB.AMIRX
  9. */
  10. ;arg kcnt junk;if kcnt=""| datatype(kcnt) ~='NUM' then kcnt=1;cntk=0;options results;getchannel;CurCh=result;do cnt=1 by 1 until cntk=kcnt|j3=":MKB_Done";getline;parse value line with j1 j2 z j3 j4;if line.command='NICK' then;do;cntk=cntk+1;y=substr(z,2);"say /kick "CurCh y "Kicked because of NICK Flooding!";end;end cnt;exit